home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Programming / Amos / Deform_Picture.Amos / Deform_Picture.amosSourceCode < prev    next >
AMOS Source Code  |  1998-06-24  |  2KB  |  53 lines
  1. Rem "This is the first that I've saw program in AMOS that can deform full" 
  2. Rem "screen pictures like in demos written in assembler... Well, only the" 
  3. Rem "speed of this program isn't  very  fast,  but was ever any powerfull" 
  4. Rem "program in amos fast? I don't think so... enjoy!" 
  5. Rem
  6. Rem "                         this program wa written by raptor / sector5" 
  7. Rem "                         email: raptor2@free.polbox.pl" 
  8. Rem "                         www: http://www.free.polbox.pl/s/sector5"
  9.  
  10.  
  11. 'Put picture from bank 3 into the screens... 
  12. 'Screen number 3 is main screen... 
  13. Unpack 3 To 4 : Screen Hide 4
  14. Unpack 3 To 2 : Screen Hide 2
  15. Unpack 3 To 1 : Cls 0 : Screen Hide 1
  16. Unpack 3 To 0 : Cls 0 : Screen Hide 0
  17. Unpack 3 To 3 : Cls 0 : Hide : Degree 
  18. XS=20
  19. XZ=160 : YZ=128 : XZ1=160 : YZ1=128
  20. Do 
  21.    'Set more deform every turn... 
  22.    If T=0 Then XS=XS+10
  23.    If T=1 Then XS=XS-10
  24.    If XS>0 Then T=1
  25.    If XS<150 Then T=0
  26.  
  27.    'Add this two line if you want add ZOOM effect intro this program... 
  28.    'If XZ>8 Then XZ=XZ-8 : YZ=YZ-4 : XZ1=XZ1+8 : YZ1=YZ1+4  
  29.    'Zoom 4,XZ,YZ,XZ1,YZ1 To 2,0,0,320,256 
  30.  
  31.    'Calculate and copy intro screen 1 deform X from original screen 2 
  32.    For X#=0 To 320 Step 2
  33.       For Y#=0 To 256 Step 256
  34.          Add ALFA,1,0 To 359
  35.          Screen Copy 2,X#,Y#,X#+2,Y#+256 To 1,X#,Y#+XS*Cos(ALFA)
  36.          Screen Copy 2,X#,Y#,X#+2,Y#+256 To 1,X#,Y#+XS*Cos(ALFA)-256
  37.          Screen Copy 2,X#,Y#,X#+2,Y#+256 To 1,X#,Y#+XS*Cos(ALFA)+256
  38.       Next 
  39.    Next 
  40.  
  41.    'Calculate and copy intro screen 0 deform Y from deformed screen 1 
  42.    For X#=0 To 320 Step 320
  43.       For Y#=0 To 256 Step 2
  44.          Add ALFA1,1,0 To 359
  45.          Screen Copy 1,X#,Y#,X#+320,Y#+2 To 0,X#+XS*Sin(ALFA1),Y#
  46.          Screen Copy 1,X#,Y#,X#+320,Y#+2 To 0,X#+XS*Sin(ALFA1)-320,Y#
  47.          Screen Copy 1,X#,Y#,X#+320,Y#+2 To 0,X#+XS*Sin(ALFA1)+320,Y#
  48.       Next 
  49.    Next 
  50.  
  51.    'Copy deformed in X and Y picture from screen 0 into main screen 3   
  52.    Screen Copy 0,0,0,320,256 To 3,0,0 : Screen 1 : Cls 0 : Screen 0 : Cls 0
  53. Loop